home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
doslbs.zip
/
DEMO_LIB.CLA
next >
Wrap
Text File
|
1994-02-12
|
3KB
|
76 lines
PROGRAM
INCLUDE('KeyCodes.EQU')
INCLUDE('Clarion.EQU')
INCLUDE('Errors.EQU')
MAP
Include('DOSLIB.INC')
END
!
! ------------------------------------------------------------
! Data Declarion for Testing
! ------------------------------------------------------------
!
Backdrop SCREEN,CUA,COLOR(1)
!dimensions=25,80,25,80
!style=D:\CLARION\DEVELOP\DOSLIB\CLARION.STY
ROW(1,1) PAINT(1,26),COLOR(2)
ROW(1,55) PAINT(1,26),COLOR(2)
ROW(1,27) STRING('DOS Library Testing Facility'),COLOR(2)
REPEAT(24)
ROW(2,1) STRING('▒{80}')
.
.
PullDown_Menu PULLDOWN,COLOR(44,45,49,46,52),HALF(120),LOCAL,SHADOW,AT(2)
!style=D:\CLARION\DEVELOP\DOSLIB\Clarion.Sty
MENU('Dos Library'),COLOR(47,48,49,50,51)
ITEM('Open'),USE(?Open_a_File)
ITEM('Change &Directory'),USE(?Change_Directory)
ITEM('Get a Filename'),USE(?Get_a_Filename)
ITEM('-')
ITEM('Edit Color Scheme'),USE(?Edit_Color_Scheme)
ITEM('-')
ITEM('Select a Printer'),USE(?Select_a_Printer)
ITEM('P&rinter Defaults'),USE(?Printer_Defaults)
ITEM('Edit &Printers'),USE(?Edit_Printers)
ITEM('-')
ITEM('C&alendar'),USE(?Calendar)
ITEM('-')
ITEM('E&xit'),USE(?Exit),KEY(CtrlX)
.
.
PrinterConts Group
Destination String('SCREEN')
Filespec String(64)
PrinterName String(30)
Control_BF String(30)
Control_AFT String(30)
Lines_Page Short(60)
.
Code
LoadSymbols()
LoadBorder()
SetMouse(1,1)
GetStyles('C:\Clarion3\Clarion.Sty')
Open(BackDrop)
Open(PullDown_Menu)
Loop
Accept
Case Field()
Of ?Open_a_File ; Dummy" = Get_FileName('*.CLA','')
Of ?Change_Directory ; Change_Directory
Of ?Get_a_Filename ; Dummp" = GetFileDetails('CLARION.STY','Select a Style File','*.STY')
Of ?Edit_Color_Scheme ; ViewStyles('')
Of ?Select_a_Printer ; x" = Select_Printer('')
Of ?Printer_Defaults ; Printer_Setup(PrinterConts,'DEMO_LIB.CTL')
Of ?Edit_Printers ; ViewPrinters('')
Of ?Calendar ; x# = Calendar(Today())
Of ?Exit ; Return
. .
Return